home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Options 11.xpl < prev    next >
Text File  |  2004-04-02  |  1KB  |  45 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Internet\Internet Explorer\Security"
  5. "UIPATH 2"="Virtual Paranoia\Automatic Error Reporting"
  6. "NAME"="Internet Explorer Error Reporting"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.06"
  9. "TEXT 1"="Enable Error Reporting for Internet Explorer"
  10. "DESCRIPTION 1"="When Internet Explorer crashes, it asks you if you would like to send an error report to Microsoft. Doing this may help the Internet Explorer development team improve stability in future releases, however you can disable this by clearing the tick in the box. Internet Explorer 6.0 only!"
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Internet Explorer 6.0 options added by Neil Turner."
  15. "COMMENT 2"="Thanks to Pikie for the typo bug! "
  16.  
  17. sP2="HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\"
  18. sV5="IEWatsonDisabled"
  19.  
  20. SUB Plugin_Initialize  
  21.  i=RegReadValue(sP2 & sV5)
  22.  if i<>1 then SetUIElement 1,true
  23. END SUB
  24.  
  25. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  26.  Call Wrt(1,sP2 & sV5)
  27.  
  28. END SUB
  29.  
  30. Sub Wrt(ITM,VAL)
  31.  b=GetUIElement(ITM)
  32.  if b=false then
  33.     Call RegWriteValue(VAL,1,2)
  34.  else
  35.     s=RegReadValue(VAl)
  36.     if IsEmpty(s)=false then
  37.        Call RegDeleteValue(VAL)
  38.     end if
  39.  end if
  40. end sub
  41.  
  42. SUB Plugin_Terminate
  43. END SUB
  44.  
  45.